type
 PtrUInt = LongWord;
 PtrInt = LongInt;
 
 PPtrUInt = ^PtrUInt;
 PPtrInt = ^PtrInt;
 
 SizeInt = longint;
 SizeUInt = longword;

function fpc_div_dword(n,z : dword) : dword; compilerproc;
function fpc_mod_dword(n,z : dword) : dword; compilerproc;
function fpc_div_longint(n,z : longint) : longint; compilerproc;
function fpc_mod_longint(n,z : longint) : longint; compilerproc;

{$define FPC_INCLUDE_SOFTWARE_SHIFT_INT64}